home *** CD-ROM | disk | FTP | other *** search
/ Run Magazine ReRun 1987 January & February / rerun-1987-01-02.d64 / label copy 64 (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  2KB  |  82 lines
  1. 10 print"[147]":poke53280,8:poke53281,8:poke646,1:printchr$(14)
  2. 20 foru=1to10:print:nextu
  3. 30 print"              [204]abel [195]opy[146]         "
  4. 40 for j=1to1000:nextj:print"[147]"
  5. 90 print"[147][212]his program prints a specified number
  6. 100 [153]"of labels. (NULL)ines can be added between":[153]"labels. valxample:":[153]
  7. 110 [153]"1 1/4 inch labels require one line      between labels.":[153]
  8. 190 [153]"(NULL)p to 5 lines of text can be entered on each label.
  9. 210 printtab(12)"[145][204]abels can also be saved to disk
  10. 220 [153][163]5)"onby entering a filename at the":[153]"specified prompt.
  11. 240 printtab(7):input"[208]ress <return> to continue[129]";a
  12. 250 poke19,64:print"[147][197]nter (y) to align and print a five-linetest label.
  13. 260 [133]"(NULL)est label (y/n)";l$
  14. 280 [139]l$[178]"y"[167]700
  15. 282 [151]19,0
  16. 285 [153]"loadvalnter label data at prompts":[153]"(NULL)(NULL)(NULL)val: (NULL)o shifted characters!"
  17. 290 [133]"left$ow many labels";c
  18. 300 [133]"left$ow many lines between labels";p
  19. 310 [133]"new (n) or old (o)";u$
  20. 320 [139] u$[178]"o"[167]890
  21. 330 x[178]1532:e[178]e[170]1:
  22. 340 [133]"line 1";n$
  23. 350 [133]"line 2";a$
  24. 360 [133]"line 3";c$
  25. 370 [133]"line 4";z$
  26. 380 [133]"line 5";e$
  27. 410 [153]"label data:"
  28. 420 [153]""
  29. 430 [153]"";n$
  30. 440 [153]"";a$
  31. 450 [153]"";c$
  32. 460 [153]"";z$
  33. 470 [153]"";e$
  34. 480 [153]"(NULL)his will print";c;"cmd copies"
  35. 490 [153]"(NULL)ith ";p;"cmd lines between labels"
  36. 500 [153]"                        "
  37. 510 [133]"lenhange (y) or (n)";b$
  38. 530 [139] b$[178]"y" [167]282
  39. 540 [133]"want to save data ";i$
  40. 550 [139] i$[178]"y"[167][141]810
  41. 560 [159]5,4
  42. 570 [129] x[178]1 [164] c
  43. 580 [152]5,n$
  44. 590 [152]5,a$
  45. 600 [152]5,c$
  46. 610 [152]5,z$
  47. 620 [152]5,e$
  48. 630 [129] t[178]1[164]p:[152]5:[130]t
  49. 640 [153]"load":[153]"print #";x
  50. 650 [130]x
  51. 660 [153]"load":[129]f[178]1[164]1000:[130]f
  52. 670 [151]1082,14:[133]"print new labels";h$
  53. 680 [139] h$[178]"y"[167][160]5,4:[156]:[137]250
  54. 690 [139] h$[178]"n"[167][128]
  55. 700 [151]19,0:[159]5,4
  56. 710 [153]"loadput labels in printer"
  57. 720 [133]"enter 'y' <return> to continue";v$
  58. 730 [152]5,"line 1 ******this*******"
  59. 740 [152]5,"line 2 ******is*a*******"
  60. 750 [152]5,"line 3 *****sample******"
  61. 760 [152]5,"line 4 ******test*******"
  62. 770 [152]5,"line 5 ******label******"
  63. 780 [133]"loadprint again";m$
  64. 790 [139] m$[178]"n"[167][160]5,4:[137]282
  65. 800 [139] m$[178]"y"[167][137]730
  66. 810 [153]"insert data disk and enter file name":[133]v$
  67. 820 [159]2,8,2,"0:"[170]v$[170]"s,w"
  68. 830 [152]2,n$
  69. 840 [152]2,a$
  70. 850 [152]2,c$
  71. 860 [152]2,z$
  72. 870 [152]2,e$
  73. 880 [160]2,8,2:[142]
  74. 890 [153]"insert data disk and enter file name":[133]v$
  75. 900 [159]2,8,2,"0:"[170]v$[170]"s,r"
  76. 910 [132]2,n$
  77. 920 [132]2,a$
  78. 930 [132]2,c$
  79. 940 [132]2,z$
  80. 950 [132]2,e$
  81. 960 [160]2,8,2:[137]410
  82.